home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / tpmenu50.zip / TMENU.DEF < prev    next >
Text File  |  1990-03-28  |  23KB  |  526 lines
  1. ;
  2. ;
  3. ; ╔═════════════╦═══════════════════════════════════╦═══════════════╗
  4. ; ║             ║                                   ║               ║
  5. ; ║ Written by  ║             TMENU.DEF             ║  26 Feb 1990  ║
  6. ; ║             ║                                   ║               ║
  7. ; ║ G. Piosenka ║  MOUSE MENUS FOR TURBO PASCAL 5.0 ║  Version 0    ║
  8. ; ║             ║                                   ║               ║
  9. ; ╠═════════════╩═══════════════════════════════════╩═══════════════╣
  10. ; ║                                                                 ║
  11. ; ║  This is the source file for mono menus for Turbo Pascal 5.0    ║
  12. ; ║  This source file can be used by the Microsoft Makemenu or      ║
  13. ; ║  Logitech Newmenu compilers to produce the desired menu. I      ║
  14. ; ║  have included this file so that users can alter the program    ║
  15. ; ║  to suit their particular needs. If you do modify the source    ║
  16. ; ║  code please do not pass them on as changes to this set of      ║
  17. ; ║  files since it will cause a lot of confusion.                  ║  
  18. ; ║                                                                 ║
  19. ; ╚═════════════════════════════════════════════════════════════════╝
  20. ;
  21. ;
  22. ;
  23. ;
  24. ;
  25. Begin Lb,Mb,Rb,Ml,Mr,Mup,Mdn,300,100
  26. Mb: Type Esc                                   ; escapes
  27. Rb: Type 0,64                                  ; type F6 - zoom screen
  28. Ml: Type 0,75                                  ; left arrow
  29. Mr: Type 0,77                                  ; right arrow
  30. Mup: Type 0,72                                 ; up arrow
  31. Mdn: Type 0,80                                 ; down arrow
  32.  
  33. ;------------------------   Screen Matching   ---------------------------
  34.  
  35. ;Look for OS Shell highlighted in file menu  
  36. Lb: Match 10,5,112,"OS shell",shell,nm7
  37.  
  38. ;Look for Compile window
  39. nm7: Match 19,44,,"Press any",edit,nm8
  40.  
  41. ;Look for TC prompt to rebuild file
  42. nm8: Match 7,11,,"║ Source",rebuild,nm9
  43.  
  44. ;Look for TC prompt for disk error
  45. nm9: Match 22,21,,"║ Disk",diskmnu,nm10
  46.  
  47. ;Look for TC Save prompt
  48. nm10: Match 6,11,,"╔═",spmnu,nm11
  49.  
  50. ;Look for TC prompt to overwrite file
  51. nm11: Match 8,5,,"╔═",ovmnu,nm12
  52.  
  53. ;Look for presence of Help screen
  54. nm12: Match 6,37,,"─ Help",helpmnu,nm13a
  55.  
  56. ;Look for TC prompt for overwrite  configaration file
  57. nm13a: Match 10,45,,"║ Overwrite",conover,nm13
  58.  
  59. ;Look if File option is highlighted in main TC menu if so type Enter
  60. nm13: Match 1,5,112,"File",ent,nm14
  61.  
  62. ;Look if Edit option is highlighted in main TC menu if so set Editmouse
  63. nm14: Match 1,13,112,"Edit",edit,nm15
  64.  
  65. ;Look if Run option is highlighted in main TC menu if so type enter
  66. nm15: Match 1,21,112,"Run",ent,nm16
  67.  
  68. ;Look if Compile option is highlighted in main menu if so type Enter
  69. nm16: Match 1,28,112,"Compile",ent,nm18
  70.  
  71. ;Look if Options is highlighted in TC main menu if so type Enter
  72. nm18: Match 1,39,112,"Options",ent,nm19
  73.  
  74. ;Look if Debug is highlighted in TC main menu if so type Enter
  75. nm19: Match 1,50,112,"Debug",ent,nm20
  76.  
  77. ;Look if Break is highlighted in TC main menu if so type Enter
  78. nm20: Match 1,59,112,"Break",ent,nm21
  79.  
  80.  
  81. ;Check for Search Options prompt on unzoomed edit screen
  82. nm21: Match 3,2,,"Option",searchmenu,nm22
  83.  
  84. ;Check for Search Options prompt on zoomed edit screen
  85. nm22: Match 2,1,,"Option",searchmenu,nm23
  86.  
  87. ;Check for Replace with prompt on unzoomed Edit screen
  88. nm23: Match 3,2,,"Replace with",ent,nm24
  89.  
  90. ;Check for Replace with prompt on zoomed Edit screen
  91. nm24: Match 2,1,,"Replace with",ent,nm25
  92.  
  93. ;Check for Search Find prompt on unzoomed Edit screen
  94. nm25: Match 3,2,,"Find",ent,nm26
  95.  
  96. ;Check for Search Find prompt on zoomed Edit screen
  97. nm26: Match 2,1,,"Find",ent, nm27
  98.  
  99. ;Check for Replace decession prompt in unzoomed Edit screen
  100. nm27: Match 3,2,,"Replace (",repmenu,nm28
  101.  
  102. ;Check for Replace decession prompt in zoomed Edit screen
  103. nm28: Match 2,1,,"Replace (",repmenu,nm29
  104.  
  105. ;Check to see if the Edit screen is active if so set editmouse
  106. nm29: Match 25,59,,"F10-M",xscr,nm30
  107.  
  108. ;Check to see if Edit screen is active on 43 line VGA
  109. nm30: Match 43,59,,"F10-M",xscr,nm31
  110.  
  111. ;Check to see if Edit screen is active of 50 line VGA
  112. nm31: Match 50,59,,"F10-M",xscr,nm32
  113.  
  114. ;xscr checks to see if unzoomed edit screen is active
  115. xscr: Match 2,37,,"═ Edit",Editscr,xscr1
  116.  
  117. ;xscr1 checks to see if zoomed message screen is active
  118. xscr1: Match 2,37,,"Message",Edit,xscr2
  119.  
  120. ;xscr2 checks to see if unzoomed message screen is active
  121. xscr2: Match 2,39,,"Edit",Edit,Editscr
  122.  
  123. ;Check to see if Watch screen is active on 25 line display
  124. nm32: Match 25,31,,"F10-Menu",watchscr,nm33
  125.  
  126. ;Check to see if Watch screen is active on 43 line screen
  127. nm33: Match 43,31,,"F10-Menu",watchscr,nm34
  128.  
  129. ;Check to see if Watch screen is active on 50 line display
  130. nm34: Match 50,31,,"F10-Menu",watchscr,ent
  131.  
  132. ;---------------------   Edit Main Menu Highlight   ------------------
  133.  
  134. edit: execute editmouse,ent
  135. ;Assign mouse so it is faster in Edit screen than in main menu 
  136.  
  137. editmouse: assign Lb,mb,rb,ml,mr,mup,mdn,40,60
  138. stdmouse:  assign Lb,mb,rb,ml,mr,mup,mdn,200,100
  139.  
  140. ;-----------------------------   DISKMNU   ----------------------------
  141.  
  142. diskmnu: Popup 17,30,inverse
  143.            Text "╔═════════════════════╗"
  144.            Text "║   Disk not ready    ║"
  145.            Text "╠══════════╦══════════╣"
  146.            Text "║  Abort   ║  Retry   ║"
  147.            Text "╚══════════╩══════════╝"
  148.            Select 4,4,5,abort
  149.            Select 4,15,5,retry
  150.           Pend
  151. abort: type "A"
  152. retry: type "R"
  153.  
  154. ;-----------------------------  REBUILD  ------------------------------
  155. rebuild: Popup 9,20,inverse
  156.            Text "╔═════════════════════╗"
  157.            Text "║      Rebuild ?      ║"
  158.            Text "╠══════════╦══════════╣"
  159.            Text "║   Yes    ║    No    ║"
  160.            Text "╚══════════╩══════════╝"
  161.            Select 4,5,3,yes
  162.            Select 4,17,2,no
  163.           Pend
  164.  
  165. ;------------------------------Config Overwrite  -----------------------
  166.  
  167. conover: Popup 12,50,inverse
  168.            Text "╔═════════════════════╗"
  169.            Text "║  Overwrite File ?   ║"
  170.            Text "╠══════════╦══════════╣"
  171.            Text "║   Yes    ║    No    ║"
  172.            Text "╚══════════╩══════════╝"
  173.            Select 4,5,3,yes
  174.            Select 4,17,2,no
  175.           Pend
  176.  
  177. ;----------------------------   SHELL   -----------------------------------
  178.  
  179. shell: execute shellset,ent                  ;assign mouse -select shell
  180. shellset: Assign shellmnu,shellmnu,shellmnu  ;set mouse to popup shell menu
  181. shellmnu: Popup 10,27,inverse
  182.            Text "╔═════════════════════╗"
  183.            Text "║ Return to Turbo C ? ║"
  184.            Text "╠══════════╦══════════╣"
  185.            Text "║   Yes    ║    No    ║"
  186.            Text "╚══════════╩══════════╝"
  187.            Select 4,5,3,exit
  188.            Select 4,17,2,zip
  189.           Pend
  190. ent: Type Enter                              ; type enter
  191. exit: Execute ex1,ex2
  192. ex1: assign lb,mb,rb,ml,mr,mup,mdn,300,100   ; set normal mouse
  193. ex2: type "Exit",Enter                       ; type exit to leave shell
  194.  
  195. ;-------------------------- SAVE PROMPT ---------------------------------
  196.  
  197. spmnu: Popup 10,20,inverse
  198.          Text "╔═════════════════════╗"
  199.          Text "║ Save Current File ? ║"
  200.          Text "╠══════════╦══════════╣"
  201.          Text "║   Yes    ║    No    ║"
  202.          Text "╚══════════╩══════════╝"
  203.          Select 4,5,3,yes
  204.          Select 4,17,2,No
  205.        Pend
  206. yes: Type "Y"
  207. no:  Type "N"
  208.  
  209. ;------------------------ Overwrite File  -----------------------------
  210.  
  211. Ovmnu: Popup 12,20,inverse
  212.          Text "╔═════════════════════╗"
  213.          Text "║   Overwrite File ?  ║"
  214.          Text "╠══════════╦══════════╣"
  215.          Text "║   Yes    ║    No    ║"
  216.          Text "╚══════════╩══════════╝"
  217.          Select 4,5,3,yes
  218.          Select 4,17,2,No
  219.        Pend
  220.  
  221. ;--------------------------  Help  ------------------------------------
  222.  
  223. helpmnu: Popup 3,15,inverse
  224.          Text "╔══════════════════════════════════════════════════╗"
  225.          Text "║  Cancel Menu      Page Up          Cancel Help   ║"
  226.          Text "║  Help Index       Page Down        Keyword       ║"
  227.          Text "╚══════════════════════════════════════════════════╝"
  228.          Select 2,4,11,zip
  229.          Select 2,21,9,pup
  230.          Select 2,38,11,scape
  231.          Select 3,4,11,index
  232.          Select 3,21,9,pdwn
  233.          Select 3,38,11,ent
  234.          Pend
  235. pup:    type 0,73
  236. pdwn:   type 0,81
  237. index:  type 0,59
  238. scape:  type Esc
  239. zip:    nothing
  240.  
  241.  
  242. ;--------------------------  EDIT SCREEN MENU   ------------------------
  243. ; This menu appears when the LB is pressed with the Edit window active
  244.  
  245. Editscr: execute editmouse,editmenu
  246. editmenu: Popup 1,1,inverse
  247.           Text "╔═════════╦═════════╦═════════╦═════════╦═════════╦═════════╦══════════╦═══════╗"
  248.           Text "║  MISC   ║  FILE   ║  EDIT   ║  SCREEN ║   RUN   ║ COMPILE ║ DEBUG/BR ║ WATCH ║"
  249.           Text "╠═════════╬═════════╬═════════╬═════════╬═════════╬═════════╬══════════╬═══════╣"
  250.           Text "║  Cancel ║ Load    ║ Find M  ║ Zoom    ║  Run    ║ to OBJ  ║ Eval     ║ Add   ║"
  251.           Text "║  Bar    ║ Pick    ║ Set  M  ║ Switch  ║  Trace  ║ Make    ║ Stack    ║ Del   ║"
  252.           Text "║  Dir    ║ New     ║ Block   ║ User    ║  Step   ║ Link    ║ Find F   ║ Edit  ║"
  253.           Text "║  Misc   ║ Save    ║ Search  ║ Refresh ║  to Cur ║ Build   ║ Tog BP   ║ Remov ║"
  254.           Text "║  Shell  ║ Write to║ Replace ║ Edit    ║  Reset  ║ Primary ║ Clr BP   ║       ║"
  255.           Text "║  Quit   ║ Chg Dir ║ Research║         ║         ║ Info    ║ View BP  ║       ║"
  256.  
  257.           Text "╚═════════╩═════════╩═════════╩═════════╩═════════╩═════════╩══════════╩═══════╝"
  258.           Select 4,4,6, zip                ; cancel menu
  259.           Select 4,13,8,load               ; load file 
  260.           Select 4,23,8,findmarker         ; find marker
  261.           Select 4,33,7,zoom               ; zoom screen
  262.           Select 4,44,6,runrun             ; run
  263.           Select 4,53,7,toobj              ; compile to obj file
  264.           Select 4,63,7,eval               ; evaluate   
  265.           Select 4,74,5,addwat             ; add watch
  266.           Select 5,4,6, barmenu            ; TC's top bar menu 
  267.           Select 5,13,8,pick               ; pick file
  268.           Select 5,23,8,setmarker          ; set marker
  269.           Select 5,33,7,switch             ; switch active screen
  270.           Select 5,44,6,trace              ; trace execution   
  271.           Select 5,53,7,make               ; compile - make
  272.           Select 5,63,7,stack              ; debug - stack
  273.           Select 5,74,5,delwat             ; delete watch
  274.           Select 6,4,6, dir                ; directory
  275.           Select 6,13,8,newfile            ; newfile 
  276.           Select 6,23,8,blockcmds          ; menu of block commands
  277.           Select 6,33,7,userscr            ; userscreen
  278.           Select 6,44,6,step               ; run step over
  279.           Select 6,53,7,link               ; compile - link
  280.           Select 6,63,7,findfunc           ; find function location
  281.           Select 6,74,5,editwat            ; edit watchpoint
  282.           Select 7,4,6, misccmds           ; menu of misc commands
  283.           Select 7,13,8,save               ; save file
  284.           Select 7,23,8,search             ; search text
  285.           Select 7,33,7,refresh            ; refresh screen
  286.           Select 7,44,6,tocursor           ; run to cursor 
  287.           Select 7,53,7,build              ; compile - build
  288.           Select 7,63,7,togbrk             ; toggle breakpoint     
  289.           Select 7,74,5,remov              ; remov all watches  
  290.           Select 8,4,6, shellsel           ; shell to DOS
  291.           Select 8,13,8,writeto            ; write file to file
  292.           Select 8,23,8,replace            ; replace text   
  293.           Select 8,33,8,editor             ; go to edit screen
  294.           Select 8,44,6,reset              ; run - reset
  295.           Select 8,53,7,primary            ; primary file  
  296.           Select 8,63,7,clrbrk             ; clear all breakpoints
  297.           Select 8,74,5,zip                ; do nothing
  298.           Select 9,4,6, quit               ; quit
  299.           Select 9,13,8,chgdir             ; change directory
  300.           Select 9,23,8,repsearch          ; repeat search
  301.           Select 9,33,8,zip                ; do nothing
  302.           Select 9,44,6,zip                ; do nothing
  303.           Select 9,53,7,info               ; get compile info
  304.           Select 9,63,7,viewbrk            ; view next breakpoint
  305.           Select 9,74,5,zip                ; do nothing
  306.         Pend
  307. load:       type 0,61                      ; type F3
  308. zoom:       type 0,63                      ; type F5
  309. runrun:     type 0,102                     ; type CNTRL F9
  310. toobj:      type 0,112                     ; type ALT F9
  311. eval:       type 0,97                      ; type CNTRL F4
  312. addwat:     type 0,100                     ; type CNTRL F7
  313. barmenu:    execute stdmouse,barmenu1
  314. barmenu1:   type 0,68                      ; type F10
  315. pick:       type 0,106                     ; type ALT F3
  316. switch:     type 0,64                      ; type F6
  317. trace:      type 0,65                      ; type F7
  318. make:       type 0,67                      ; type F9
  319. stack:      type 0,96                      ; type CNTRL F3
  320. delwat:     type 0,48,"D"                  ; type ALT B - D
  321. dir:        type 0,33, "D"                 ; type ALT F - D
  322. newfile:    type 0,33, "N"                 ; type ALT F - N
  323. userscr:    type 0,108                     ; type ALT F5
  324. step:       type 0,66                      ; type F8
  325. link:       type 0,46,"L"                  ; type ALT C - L
  326. findfunc:   type 0,32,"F"                  ; type ALT D - F
  327. togbrk:     type 0,101                     ; type CNTRL F8
  328. editwat:    type 0,48,"E"                  ; type ALT B - E
  329. save:       type 0,60                      ; type F2
  330. search:     type 17,"F"                    ; type CNTRL Q - F
  331. refresh:    type 0,32, "R"                 ; type ALT D - R
  332. tocursor:   type 0,62                      ; type F4
  333. build:      type 0,46, "B"                 ; type ALT C - B
  334. clrbrk:     type 0,48, "C"                 ; type ALT B - C
  335. remov:      type 0,48, "R"                 ; type ALT B - R
  336. shellsel:   execute shl1,shellset          ; type and set shellmouse
  337. shl1:       type 0,33, "O"                 ; type ALT F - O
  338. quit:       type 0,45                      ; type ALT X
  339. writeto:    type 0,33, "W"                 ; type ALT F - W
  340. replace:    type 17, "A"                   ; type CNTRL Q - A
  341. editor:     execute editor1,editmouse      ; 
  342. editor1:    type 0,18                      ; type ALT E
  343. reset:      type 0,95                      ; type CNTRL F2
  344. primary:    type 0,46, "P"                 ; type ALT C - P
  345. info:       type 0,46, "G"                 ; type ALT C - G
  346. viewbrk:    type 0,48, "V"                 ; type ALT B - V
  347. chgdir:     type 0,33, "C"                 ; type ALT F - C
  348.  
  349.  
  350.  
  351. ;-----------------------   BLOCK COMMAND MENUS   ------------------------
  352. ;This menu pops up when block is selected from the main EDIT menu
  353.  
  354. blockcmds: Popup 1,5,inverse
  355.            Text "╔═════════════════════════════════════════════════════════════════════╗"
  356.            Text "║                          BLOCK COMMANDS                             ║"
  357.            Text "╠═════════════════════════════════════════════════════════════════════╣"
  358.            Text "║  Cancel Menu   Copy    Disk Read      Print    Set Start  Indent    ║"
  359.            Text "║  Hide/Show     Move    Disk Write     Delete   Set End    Outdent   ║"
  360.            Text "╚═════════════════════════════════════════════════════════════════════╝"
  361.            Select 4,4,11,zip   
  362.            Select 5,4,11,bhide
  363.            Select 4,18,4,bcopy
  364.            Select 5,18,4,bmove
  365.            Select 4,26,10,bread
  366.            Select 5,26,10,bwrite
  367.            Select 4,41,6, bprint
  368.            Select 5,41,6,bdelete
  369.            Select 4,50,9,bstart
  370.            Select 5,50,9,bend 
  371.            Select 4,61,7,bdent
  372.            Select 5,61,7,bout
  373.           Pend
  374. bstart: type 11,"B"                        ; type CNTRL K - B
  375. bend:   type 11,"K"                        ; type CNTRL K - K
  376. bcopy:  type 11,"C"                        ; type CNTRL K - C
  377. bmove:  type 11,"V"                        ; type CNTRL K - V
  378. bread:  type 11,"R"                        ; type CNTRL K - R
  379. bwrite: type 11,"W"                        ; type CNTRL K - W
  380. bprint: type 11,"P"                        ; type CNTRL K - P
  381. bhide:  type 11,"H"                        ; type CNTRL K - H
  382. bdent:  type 11,"I"                        ; type CNTRL K - I
  383. bout:   type 11,"U"                        ; type CNTRL K - U
  384. bdelete: Popup 17,30,inverse
  385.            Text "╔═════════════════════╗"
  386.            Text "║    Delete  Block ?  ║"
  387.            Text "╠══════════╦══════════╣"
  388.            Text "║   Yes    ║    No    ║"
  389.            Text "╚══════════╩══════════╝"
  390.            Select 4,5,3,bdel
  391.            Select 4,17,2,zip
  392.           Pend
  393. bdel:   type 11,"Y"                        ; type CNTRL K - Y
  394.  
  395.  
  396. ;------------------------   Find Marker Menu   ---------------------------
  397. ; This Menu pops up when Find marker is selected from Edit main menu
  398.  
  399. findmarker: popup 10,25,inverse
  400.              Text "╔════════════════════════════════════════════╗"
  401.              Text "║ Cancel Menu  Marker Number  0   1   2   3  ║"
  402.              Text "╚════════════════════════════════════════════╝"
  403.              Select 2,3,11,zip             ; cancel menu
  404.              Select 2,31,1,fm0             ; marker 0 
  405.              Select 2,35,1,fm1             ; marker 1    
  406.              Select 2,39,1,fm2             ; marker 2
  407.              Select 2,43,1,fm3             ; marker 3
  408.             pend
  409. fm0: type 17, "0"                          ; type CNTRL Q - 0
  410. fm1: type 17, "1"                          ; type CNTRL Q - 1
  411. fm2: type 17, "2"                          ; type CNTRL Q - 2
  412. fm3: type 17, "3"                          ; type CNTRL Q - 3
  413.  
  414. ;-----------------------   Set Marker Menu   -----------------------------
  415. ;This menu pops up when Set marker is selected from Edit Main menu
  416.  
  417. setmarker: popup 10,25,inverse
  418.              Text "╔════════════════════════════════════════════╗"
  419.              Text "║ Cancel Menu  Marker Number  0   1   2   3  ║"
  420.              Text "╚════════════════════════════════════════════╝"
  421.              Select 2,3,11,zip             ; cancel menu
  422.              Select 2,31,1,sm0             ; marker 0
  423.              Select 2,35,1,sm1             ; marker 1
  424.              Select 2,39,1,sm2             ; marker 2
  425.              Select 2,43,1,sm3             ; marker 3
  426.            pend
  427. sm0: type 11, "0"                          ; type CNTRL K - 0
  428. sm1: type 11, "1"                          ; type CNTRL K - 1
  429. sm2: type 11, "2"                          ; type CNTRL K - 2
  430. sm3: type 11, "3"                          ; type CNTRL K - 3
  431.  
  432. ;----------------------   Search Menu   ---------------------------------
  433. ;This menu pops up when search is selected from the Edit main menu
  434.  
  435. searchmenu: Popup 1,5,inverse
  436.  Text "╔═════════════════════════════════════════════════════════════════════╗"
  437.  Text "║                         SEARCH OPTIONS                              ║"
  438.  Text "╠═════════════════════════════════════════════════════════════════════╣"
  439.  Text "║  Cancel Menu       Global       Within Block     No case    Execute ║"
  440.  Text "║  Cancel Search     Backward     Whole word       No Prompt          ║"
  441.  Text "╚═════════════════════════════════════════════════════════════════════╝"
  442.         Select 4,4,13,zip
  443.         Select 5,4,13,scape
  444.         Select 4,22,8,global
  445.         Select 5,22,8,backward
  446.         Select 4,35,12,inblock
  447.         Select 5,35,12,wholeword
  448.         Select 4,52,9,nocase 
  449.         Select 5,52,9,noprompt
  450.         Select 4,63,7,ent
  451.         Select 5,63,7,zip
  452.         Pend
  453. repsearch: type 12                         ; type CNTRL L
  454. global:    type "G"                        ; type G
  455. inblock:   type "L"                        ; type L
  456. wholeword: type "W"                        ; type W
  457. nocase:    type "U"                        ; type U
  458. noprompt:  type "N"                        ; type N
  459. backward:  type "B"                        ; type B
  460.  
  461. ;-----------------------   MISC COMMANDS MENU   ----------------------
  462. ;This menu pops up when MISC is selected fromt eh Edit main menu
  463.  
  464. misccmds: Popup 10,20,inverse
  465.           Text " ╔═════════════════════════════════════════════╗"
  466.           Text " ║         MISCELLANEOUS  COMMANDS             ║"
  467.           Text " ╠═════════════════════════════════════════════╣"
  468.           Text " ║  Cancel Menu         Toggle AutoIndent      ║"
  469.           Text " ║  Restore Line        Toggle Tab Mode        ║"
  470.           Text " ║  Pair Match Left     Pair Match Right       ║"
  471.           Text " ║  Abort Operation     Toggle Opt Fill Mode   ║"
  472.           Text " ╚═════════════════════════════════════════════╝"
  473.           Select 4,5,15,zip
  474.           Select 5,5,15,resline
  475.           Select 6,5,15,pairml
  476.           Select 7,5,15,abortop
  477.           Select 4,25,20,tindent
  478.           Select 5,25,20,ttabs
  479.           Select 6,25,20,pairmr
  480.           Select 7,25,20,tfill
  481.           Pend
  482. resline: type 17, "L"                        ; type CNTRL Q - L
  483. pairml:   type 17,"["                         ; type CNTRL Q - [  
  484. abortop: type 21                             ; type CNTRL U
  485. tindent: type 15,"I"                         ; type CNTRL O - I
  486. ttabs:   type 15,"T"                         ; type CNTRL O - T
  487. pairmr:  type 17,"]"                         ; type CNTRL Q - ]
  488. tfill:   type 15,"F"                         ; type CNTRL O - F
  489.  
  490. ;---------------------   Replace Menu   ----------------------------
  491. ;This menu pops up when replace yes/no is matched on edit screen
  492.  
  493. repmenu: Popup 1,1,inverse
  494.           Text "╔═══════════════════════════════════════════╗"
  495.           Text "║  Substitute      Ignore    Abort Search   ║"
  496.           Text "╚═══════════════════════════════════════════╝"
  497.           Select 2,4,10,yes
  498.           Select 2,20,6,no
  499.           Select 2,30,12,scape
  500.          Pend
  501.  
  502.  
  503. ;--------------------------  WATCH SCREEN MENU   -----------------------
  504.  
  505. watchscr: popup 10,30,inverse
  506.            Text " ╔═════════════════════════════════════╗"
  507.            Text " ║        WATCH  SCREEN  MENU          ║"
  508.            Text " ╠═════════════════════════════════════╣"
  509.            Text " ║  Cancel Menu     Main Bar Menu      ║"
  510.            Text " ║  Add Watch       Delete Watch       ║"
  511.            Text " ║  Edit Watch      Remove All Watches ║"
  512.            Text " ║  Get Help        Go to Edit Screen  ║"
  513.            Text " ╚═════════════════════════════════════╝"
  514.            Select 4,5,11,zip
  515.            Select 5,5,11,addwatch
  516.            Select 6,5,11,ent
  517.            Select 7,5,11,helpcmd
  518.            Select 4,21,19,barmenu
  519.            Select 5,21,19,delwatch
  520.            Select 6,21,19,remov
  521.            Select 7,21,19,switch
  522.           pend
  523. addwatch: type 0,82                             ; Type INS
  524. delwatch: type 0,83                             ; Type Del
  525. helpcmd:  type 0,59                             ; Type F1
  526.